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OS/3 BEM:BASIC SUMMARY 


BEM COMMANDS 


/ DELETE (file-parameters) 


/DISPLAY JOB 


DISPLAY VOLUMES 


7EXEC BASIC 


Deletes an element from a library file. 


Displays information about currently 
active batch jobs. 


Displays the names of any disk pack 
mounted at the main site. 


Invokes the BASIC compiler; when 
loaded the following is displayed: 


OS/3 BASIC READY (VER n.n) BEGIN 


/FSTATUS library (password},volume 


7 HELP 
/INTR 
/LOGOFF 


/LOGON id 


/ PAUSE question 


/PRINT (file-parameters) 


/ PUNCH (file-parameters) 


ZRUN [jobname] 
ROLL 
ZSCREEN JaoRoL 


/STATUS RESOURCES 


/ STATUS TERM 


NocoP 


Displays the directory of the requested 
file. 


Displays additionat information about 
the previous error message. 


Interrupts current command in exe- 
cution. 


Terminates a user's session and re- 
leases all work space to the system. 


Identifies the user to the system. Must 
always be the first command entered. 
The system will respond with a bulle- 
tin followed by: 


USER LOGGED ON, BEM SYSTEM READY 


Displays the user’s question on the 
computer console and pauses the user 
until the operator's reply is available 
for display to the user. 


Prints a library element at the central! 
site. 


Punches a library element at the cen- 
tral site. 


Initiates a job at the main site. 


sheight X width 


Defines the UNISCOPE terminal char- 
acteristics. 


Displays the amount of memory and 
disk space available to BEM. 


Displays a list of terminals currently in 
use on the system. 


/TYPE message 


/VTOC volume 


Language Elements 
General 


1. blanks 


Displays the user’s message on the 
computer operator's console. 


Displays the names of files on a disk 
volume. 


The character blank, which may be used in constructing the 
BASIC programs, is designated in the syntax by the symbol A. 
Any spaces which appear in the syntax equations do not denote 
blanks in the BASIC language. Blanks are only significant in 
BASIC when they appear in a comment or in a string constant. 


2. quote 


The character quote (’’) is used to delimit the beginning and end 
of a closed-string constant. 


3. asterisk 


Exponentiation is specified by means of a pair of asterisks. An 
up-arrow (1) is also permitted, where applicable. 


Constants 


decimal-number 


closed-string 


A fraction fotlowed by optional expo- 
nent field. 


Fraction: 

series of 1 to 15 digits containing 
optional decimal! point preceding, fol- 
flowing, or embedded in series of di- 
gits. 


Examples: 

85 85. 85 85.6438 

Exponent: 

indicates the power of 10 by which the 
fraction is to be multiplied and con- 
sists of the letter E followed by option- 
al sign and one or two digits. Sign is + 
or —; if omitted, + is assumed. 


Examples: 


E5 E€+14 E+8 E—O4 E-2 


Quote followed by a series of O to 
4095 string characters followed by a 
quote. 


Example: “ABZ154A84” 








open-string A character followed by a series of 0 





NOTES: 


to 4095 characters or blanks (A) or 
quotes ("}, terminated by a comma or 
end of line. 


Example: ABZ154A84 


Series of one to five digits, ranging 
from 1 to 99999 in value. Leading 
zeros are ignored. Each statement 
must have a unique line-number. 


Example: 01250 


decimal numbers 


All decimal numbers are converted and stored internally in 
floating-point format. The exponent occupies seven bits and 
indicates the power to which the number 16 must be raised. The 
Sign occupies one bit. in BASIC the mantissa occupies 24 bits, 
and contains a 6 digit hexadecimal number in normalized form. 
if the value of the fraction part of a decimal number, disregard- 
ing the decimal point, exceeds 224 — 1, the number is rounded 
and trailing digits are lost: for example: 


12.3456789 
is acceptable, but is (effectively) rounded to 
12,345679 


if the mantissa is nonzero, the magnitude of the floating-point 
number has the following range: 


16—85 <M<16 83 (approximately 10-78 <M<1075 } 


Overflow and underflow conditions for numeric constants are 
processed as errors. 


String constants 


All string constants are stored in EBCODIC code. A 2-byte length 
field is prefixed to each string before it is stored; the value of the 
length byte is not included. If a given string constant contains 
more than 4095 characters, it is truncated at the right. Note that 
an open-string constant, as opposed to a closed-string constant. 
cannot begin with a quote and cannot contain a comma. More- 
over, an open-string constant is permitted onty as input to the 
READ, and INPUT statement. 


Within a closed-string constant, two consecutive quotes aré 
interpreted as a single quote. 


Variables 


scalar variable Defined as a numeric variable or a 


string variable. 


numeric variable A letter optionally followed by a single 


digit. 


Example: S S8 


string variable A letter followed by a dollar sign ($) or 


a letter and single digit followed by a 
dollar sign ($). 


Example: VS, B$, F7$, BOS 


array variable Defined as a numeric array variable or 


a string array variable. 


numeric array variable A letter followed by one or two sub- 


script expressions enclosed in paren- 
theses. 


Examples: M(2) P(8,92) X(A+B) 


string array variable A letter followed by a dollar sign ($) 
followed by one or two subscripts en- 
closed in parentheses. 


NOTES: 


Examples: MS$({2) C$(20) 
O$(A+B9,10) 





numeric variables 


Numeric variables may only be assigned decimal numeric values. 
All such variables are initialized to zero (O). 


numeric array variables 


Numeric array variables may only be assigned decimal numeric 
values. All such variables are initialized to zero (0). 


subscripts 


A subscript may be defined using any arithmetic expression. 
During execution, the value used to locate the array element 
referenced is computed by taking the integer part of the sub- 
script expressions. Rounding occurs for each subscript. If the 
subscript value is not within the bounds specified (or implied) for 
that dimension of the referenced array, then the user is given an 
error message and program execution terminates. 


Two-dimensional numeric arrays are stored in row-major order. 
String variables 


String variables may only be assigned character string values. 
All such variables are initialized to the null string (zero length). 


5. string array variables 


String array variables may only be assigned character string 
values. All elements of these string array variables are initialized 
to the null string (zero length). 


The rules for numeric array variables regarding bounds and 
subscript evaluation apply to string array variables as well. 


Expressions 


arithmetic-expression Defined as a term optionally preceded 
by a minus (—) or plus (+); or an 
arithmetic expression plus (+) or mi- 
nus (—) a term. 


Example: A**2*B — 3 


A factor or a term multiptied(*) or di- 
vided (/) by a factor. 


Example: A**2*B 


A primary or a factor raised to a power 
(**) designated by a primary. 


Example: A**2 


primary A decimal number, numeric reference, 
function reference, or an arithmetic 
expression enclosed in parentheses. 





Example: 2,A,RND({X), (C — D) 

string-expression String-primary or a string-expression 
followed by an ampersand (&), denot- 
ing concatenation, followed by another 
string-expression. 


Example: “ABC” & F$ 


string-primary A closed string, string reference, or 
string function reference. 


Example: A$, SEGS$ (DS, 6, 8), “AB” 





NOTES: 


1. The exponentiation operator (**) may be written where applica- 
ble as an up arrow (1). 


2. A**B**C is compiled as (A**B}**C. 
3. Parentheses may be used to factor subexpressions. 
4. The following are treated as errors: 


@ Mixed mode expressions and any operations on string 
data 


© Division by zero 


e@ Zero to a negative power 


® Overtiow and underflow conditions existing during the 
evaluation of arithmetic expressions. 


5. A negative number can only be raised to a nonzero positive 
integer number. The maximum value of this positive integer is 
15. Any violation of this rule is treated as an error. 


6. The concatenation operator, &, may be used to combine two or 
more strings: 


“ABC” & “DEF” results in “ABCDEF”. 


Function References 


built-in-function A function name optionally followed by 
a series of arguments, enclosed in 
parenthesis. 


function-name ABS ATN CHRS$CLK$ COS COT 
DATS DET EXP INT LEN LOC 
LOF LOG MAR MOD NUM PER 
POS RND SEG$SGN SIN STRS$ 
TAN TIM USRS VAL 


user-defined-function FN followed by a letter, an optional 
dollar sign ($), and an argument list 
enclosed in parentheses. 


Example: FNA (A + B, X--Y), FNCS (BS, 
A) 


argument-list An expression optionally followed by 
up to 15 expfessions separated by 
commas. 


Example: A + B, X-Y, AS,... 





NOTES: 
1. SIN(x), COS{x), TAN{x), COT{x), and ATNy) designate the func- 
tions sine, cosine, tangent, cotagent and arctangent respec- 
tively, and the argument x and the result of ATN are angles 


measured in radians. 


2. EXP{x) designates exponentiation e. Overflow occurs if x is too 
large {i.e., xX > 174.6) 


3. LOG(x) designates the natural logarithm of x, In x. The LOG of 
zero or a negative number is treated as an error. 


4. ABS{x}) designates the absolute value of x, \x\ . 


5. SQR(x) designates the square root of x. A negative argument is 
treated as an error. 


6. RND(x) designates a pseudo random number as follows: 


a. if x > 0, then RND{x) is a function of x, whose value is in 
the open interval (0,1). 


b. ifx <O, the system supplies an arbitrary random number 
in the open interval {0,7}. 


70. 


17. 


12. 


73. 


14, 


15. 


16. 


17. 


18. 


19. 


20. 


c. If x = Q, the system supplies a pseudo random number 
which is a function of the previous random number 
generated by RND. If x = 0, the first time RND is called in 
@ program, the system will supply a fixed number in the 
open interval (0,1). 


d if the argument is omitted (X = RND} then this is 
equivalent to an argument of zero. 


To generate a sequence of pseudo random numbers, the 
user would call any of these options followed by repeated 
calls to option (c). 
INT(x) designates the largest integer not exceeding x. 
For example: INT(2.985) = 2. INT(— 2.015) = —3. 
SGMx) designates the sign of x. 
+1, ifx>0 
SGN = 0, ifx=0 
1, X<O 


DET returns the value of the determinant of the last matrix 
inverted. 


TIM designates the current running time in seconds for the 
program. 


LEN{xS) returns the length in characters of string xs. 


VAL(x$} returns the numeric value of the decimal number which 
is in string xs. 


MOD{x,y) returns the modulus remainder of X MOD Y This is 
similar to X—Y* INT (X/Y). 


POS{xS, y$,z} begins searching string x$ at position z attempting 
to find string y$. This will return the starting position at which 


y$ is found within x$, or zero if not found. 


CHRS$ (x) designates the one character EBCDIC string with a 
character value equal to x. 


CLKS$ designates the current time of day in the form 
“HH:MM:SS". 


DATS designates the current date in the form “MM/DD/YY”. 


SEG${(xS,y,z) returns the substring of x$ from character position 
y to position z. 


STRS(x) returns the character string representation of the num- 
ber x. 


USRS returns the logon-id of the terminal user. 


2f. 


22. 


23. 


24, 


25. 


26. 


27. 


28. 


29. 


LOC(#nj returns the current location of the file pointer for the file 
assigned to channel #n. 


LOF(#n} returns the current end-of-file (number of records) for 
the file specified by #n. 


MAR(#n} returns the current margin setting for the file #n. 


PER(#n,a$) returns +1 if the operation specified for file # n is 
valid, O if not, and —1 if a$ is not one of the operations: INPUT, 
LINPUT, PRINT, READ, RENAME, RESET, SCRATCH, WRITE, or 
MARGIN. 


TYP(#n, a$) returns +1 if the type specified by aS corresponds to 
the file type of file #n, O if not, and —1 if aS is not one of the 
types: ANY, LIBRARY, NUMERIC, PERM, RANDOM, STRING, 
TERMINAL, TTY, or WORK. 


NUM returns the count of values inputted by the last MAT 
INPUT, 


FNA to FNZ designates one of the 26 user-defined numeric 
functions (see the DEF statement). 


FNAS to FNZ$ designate one of the 26 user-defined string 
functions. 


EBC (string) converts a string of from one to three characters in 
length to its EBCDIC value. The argument may be a letter, 
number, character, etc., or a 2 — 3 letter mnemonic such as 
ETX, DEL, ete. 


Statements 


statement Line-number followed by an execut- 


able statement or nonexecutable- 
statement. A comment may be added 
to any statement by prefixing it with 
an apostrophe (’). 


executable-statement Assign, contro!, input-output, matrix, 
data file. 


nonexecutable-statement Declaration or remark statement. 


NOTES: 





Each BASIC statement entered into a program must be prefixed 
with a line number. These line numbers determine the logical 
order of statements within a program. They are used in several 
of the control statements to effect transfers of control. 


Each BASIC statement is summarized in the reference and 
described in detail in the BASIC reference manual, UA-0140 
{current version). 


Syntax Conventions 


In describing the statements, the following conventions are used: 
file-params: Format 1: 
program, fite {(password)] [, volume] 
Format 2: 


Ne file [{readpass/writepass)] (,vo- 
DA lume] 


program: 1 to 8 character program name to be 
located or saved. 


file: 1 to 44 character file name of the file 
containing the program to be located 
or saved. 

password; \Is the cataloged password for the file, 


if any. The read password must be 
supplied for an “OLD” and the write 
password for “SAVE”. This entry is 
optional. 


volume: 6 character volume name. If the file is 
listed in the catalog with a volume, 
this field may be omitted. 


line-number: A series of one to five digits. 


list-item: line number 
line number—line number 


search-string: list-item [,list-item. ..] 
“characters” 
channel-setter: \dentifies the file on which an opera- 


tion is performed. This has the form: 
#expression 
NOTES: 

1. A line-number-list may contain list-items which reference single 
lines and others which reference a sequence of lines (all lines 
between the first and second line numbers specified, inclusive). 
Example: 


120, 200 — 250, 300 


This list references those lines numbered 120, 200 to 250 
inclusive, and 300. 


2. A channel-setter must result in a value between 0 and 4095. 
Channel zero, the terminal, may only be referenced by certain 
statements. 


Statement Formats 


CALL closed-string {:param-list] 


ipindeniaenaa 
cna { channel-setter 
[ WITH channel-setter, 













17 CALL “SUBR”: 3+4, B (), #4 


4197 CHAIN #4 WITH #1,4J 
4522 CHAIN AS WITH #3 
9223 CHAIN “PROG, CATLIB™ 



















string-name TO bcbeseieeaad| 
CHANGE Cai nerievaeask TO string-name 







§12 CHANGE As TOV 
675 CHANGE B TO A5S BIT 4 








(BIT expression] 









330 DATA 4,2,1.7 
340 DATA “YES”, “NO”, 3 


DATA datum. datum... ] 











DEF FNletter [$] [(param-iist)] 30 DEF FNE (X)=EXP (—X**2) 


Llocal-tist] [= expression] 


DIM letter [$] {integer [, integer]), .. . 1 DIM A(5), BS(6,3) 








FILE channel-setter:string-expression 174 FILE #3: “MYFILE,MYLIB” 


190 FILE #1: “*" 





FOR numeric-variable=arithmetic-expression j} 30 FOR X=0 TO 3 STEP D 
TO arithmetic-expression 
( STEP arithmetic-expression] 


GOSUB line number 90 GOSUB 210 
GOTO 20 GOTO 25 


GOTO 
lf condition § THEN 7 line number 


GOSUB 













40 IF SIN(X}=M THEN 80 
41 IF AS = ‘YES” GOSUB 79 
42 IF END #1GO TO 4178 


















40 INPUT 8(5), C7 
41 INPUT #3:K 


INPUT [channel-setter:] variable, variable .. . 


numeric-let 
[LET] string-let 260 LET FNBS = CS 
function-let 270 LET B9$ = X$(5) 


LIBRARY ciosed-string, . . . 47 LIBRARY “SUBLIB, PACK22” 
LINPUT [channel-setter:] string-variable, . . 195 LINPUT L$, M58, K$ (6) 
423 LINPUT #7: 26 


4 MARGIN #6:64 


MAT letter=INViletter) 550 MAT K=INV(L) 














259 LET W7 = X4"*2 






















ee 
MAT INPUT [channel-setter:] letter [$], . . . 7 MAT INPUT #3: A, BS 
MAT LINPUT [channel-setter;] letter $, _ 8 MAT LINPUT LS, VS 


MAT letter=letter*ietter 612 MAT H=A"B 







MAT PRINT {[channel-setter:] 140 MAT PRINT M,N; 


letter (SIE: J... 
159 MAT READ M,N 
















MAT READ [channet-setter:] letter [$}, . . . 








MAT letter=(arithmetic-expression) fetter 


MAT letter = ZER [{trimmer)] 412 MAT X =ZER (5.3) 
NEXT numeric-variable 80 NEXT X 


THEN 
ON arithmetic-expression< GOTO 





160 ON X+Y¥ GOTO 575, 490, 650 






\GOSUB 






line-number, . 


war 


PRINT [channel-setter:] [item[ : I... 20 PRINT |; 
27 PRINT #27: AS, “FILE” 


RANDOMIZE 10 RANDOMIZE 


READ [channei-setter:] variable, .. . 150 READ X, Y, ZS, V (5) 
2144 READ #44: JK 
dove 


REM [character 200 REM THIS SUBROUTINE 
201 REM SOLVES EQUATIONS 


























RESET 560 RESTORE 
{ } {channel-setter: [record-number]] | 517 RESET #1:4 
RESTORE 605 RESET #3 







enc 
SCRATCH channel-setter 1900 SCRATCH #4 


SUB closed-string [:param-list] 9000 SUB “INTEGRAL":A, FNC, J 
1000 SUB “FINDSPAC” 


SUBEND 9999 SUBEND 
SUBEXIT 9510 SUBEXIT 


WRITE channel-setter expression, . . . 1445 WRITE #7 : AS, B,C 


USING string-expression, expression, . . . [;] 145 MAT PRINT USING AS, B, C 
170 PRINT #5 : USING “#.#4", A (1), B (2) 




















Command Formats 
DELETE [line-number-list] [search-string} DELETE 1-200 “REM” 


(er LIST 110 — 150 
PRINT LIST “FOR” 
PRINT 10,50 


es 






\ [line-number-list] [search-string} 
















